home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Windows_Re190765712005.psc / Registry Fixer / frmSearch.frm < prev    next >
Text File  |  2005-06-30  |  2KB  |  62 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSearch 
  3.    Caption         =   "Search for Missing File"
  4.    ClientHeight    =   4365
  5.    ClientLeft      =   60
  6.    ClientTop       =   450
  7.    ClientWidth     =   6945
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4365
  10.    ScaleWidth      =   6945
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.TextBox txtFile 
  13.       Height          =   285
  14.       Left            =   0
  15.       TabIndex        =   2
  16.       Top             =   240
  17.       Width           =   6495
  18.    End
  19.    Begin VB.CommandButton cmdSearch 
  20.       Caption         =   "Search"
  21.       Height          =   495
  22.       Left            =   0
  23.       TabIndex        =   1
  24.       Top             =   600
  25.       Width           =   1215
  26.    End
  27.    Begin VB.ListBox lstFiles 
  28.       Height          =   2010
  29.       Left            =   0
  30.       TabIndex        =   0
  31.       Top             =   2160
  32.       Width           =   6855
  33.    End
  34.    Begin VB.Label lblFile 
  35.       Caption         =   "File to Search For:"
  36.       Height          =   255
  37.       Left            =   0
  38.       TabIndex        =   3
  39.       Top             =   0
  40.       Width           =   5535
  41.    End
  42. End
  43. Attribute VB_Name = "frmSearch"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Private Sub cmdSearch_Click()
  49. Dim SearchPath As String, FindStr As String
  50. Dim FileSize As Long
  51. Dim NumFiles As Integer, NumDirs As Integer
  52. Screen.MousePointer = vbHourglass
  53. lstFiles.Clear
  54. SearchPath = "C:\"
  55. FindStr = txtFile.Text
  56. FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
  57. MsgBox NumFiles & " Files found in " & NumDirs + 1 & " Directories"
  58. MsgBox "Size of files found under " & SearchPath & " = " & Format(FileSize, "#,###,###,##0") & " Bytes"
  59. Screen.MousePointer = vbDefault
  60. End Sub
  61.  
  62.